Procedure ProcName()
'***************************************
'* Name: ProcName
'* Purpose:
'*
'* 
'* Parameters:
'*
'* Returns:
'*
'* Author: 
'* Date Created:
'*
'* Date Last Changed: 
'***************************************

   On Error GoTo ProcNameErrHandler


ProcNameExit:
   Exit Procedure

ProcNameErrHandler:
   MsgBox "Error: " & Str$(Err) & Chr(10) & "Desc:  " & Error & Chr(10) & "Proc:  " & "ProcName", vbCritical, "Program Error"
   GoTo ProcNameExit

End Procedure

